unit ufProjectToolFrame;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Rtti, System.Classes,
  System.Variants, FMX.Types, FMX.Controls, FMX.Forms, FMX.Dialogs, ufrmCustomFrame, FMX.Layouts, uProjectDic;

type
  TfProjectToolFrame = class(TfrmCustomFrame)
  private
    FProject: TProject;
    FToolType: TProjectToolType;
    procedure SetToolType(const Value: TProjectToolType);
  protected
    procedure SetProject(const Value: TProject); virtual;
  public
    constructor Create(AOwner: TComponent); override;

    property Project: TProject read FProject write SetProject;
    property ToolType: TProjectToolType read FToolType write SetToolType;
  end;

var
  fProjectToolFrame: TfProjectToolFrame;

implementation

{$R *.fmx}



{ TfProjectToolFrame }

constructor TfProjectToolFrame.Create(AOwner: TComponent);
begin
  inherited;
  FProject:= nil;
  FToolType:= TProjectToolType.None;
end;

procedure TfProjectToolFrame.SetProject(const Value: TProject);
begin
  Assert(FProject = nil, 'FProject <> nil');
  FProject := Value;
end;

procedure TfProjectToolFrame.SetToolType(const Value: TProjectToolType);
begin
  Assert(FToolType = TProjectToolType.None, 'FToolType <> TProjectToolType.None');
  FToolType := Value;
end;

end.
